#include "head.h"

// 数据操作
void flight_data_file_print(f_list *list) //  向文件写入航班信息
{
    FILE *fp = fopen("./data/flights.txt", "w");
    if (NULL == fp)
    {
        ERRLOG("文件创建失败");
        return;
    }
    // 光标移动到开头
    fseek(fp, 0, SEEK_SET);

    // 遍历写入
    f_node *ptr = list->next;
    // printf("班次\t机型\t\t起点站\t终点站\t起飞时间\t到达时间\t飞行时间\t票价\t载客量\t剩余座位\t是否飞\n");

    do
    {
        fprintf(fp, "%-8d", ptr->data.id);                                            // 航班班次
        fprintf(fp, "%-16s", ptr->data.flighttype);                                   // 飞机机型
        fprintf(fp, "%-12s", ptr->data.startcity);                                    // 航班起点站
        fprintf(fp, "%-12s", ptr->data.arrivecity);                                   // 航班终点站
        fprintf(fp, "%02d:%02d\t", ptr->data.starttime[0], ptr->data.starttime[1]);   // 起飞时间
        fprintf(fp, "%02d:%02d\t", ptr->data.arrivetime[0], ptr->data.arrivetime[1]); // 到达时间
        fprintf(fp, "%-10s", ptr->data.flytime);                                      // 飞行时间
        fprintf(fp, "%-8d", ptr->data.value);                                         // 票价
        fprintf(fp, "%-8d", ptr->data.maxNUM);                                        // 额定载客量
        fprintf(fp, "%-10d", ptr->data.leftbuyersa);                                  // 剩余座位数量
        fprintf(fp, "%c\n", ptr->data.whetherfly);
        ptr = ptr->next;
    } while (list->next != ptr);
    fclose(fp);
    return;
}

void flight_data_file_scanf(f_list *list) //  向文件读取航班信息
{
    FILE *fp = fopen("./data/flights.txt", "r");
    if (NULL == fp)
    {
        ERRLOG("文件创建失败");
        return;
    }
    // 光标移动到开头
    fseek(fp, 0, SEEK_SET);

    // 判断文件行数
    char ch = '0'; // 接收文件的字符
    int len = 0;   // 判断文件的行数
    while (EOF != (ch = fgetc(fp)))
    {
        if ('\n' == ch)
        {
            len++;
        }
    }

    // 移动光标到头
    fseek(fp, 0, SEEK_SET);
    f_data data; // 存放数据
    // f_node *ptr = list->next;
    // printf("班次\t机型\t\t起点站\t终点站\t起飞时间\t到达时间\t飞行时间\t票价\t载客量\t剩余座位\t是否飞\n");
    for (size_t i = 0; i < len; i++)
    {
        fscanf(fp, "%8d\t", &data.id);                                       // 航班班次
        fscanf(fp, "%16s\t", data.flighttype);                               // 飞机机型
        fscanf(fp, "%12s\t", data.startcity);                                // 航班起点站
        fscanf(fp, "%12s\t", data.arrivecity);                               // 航班终点站
        fscanf(fp, "%02d:%02d\t", &data.starttime[0], &data.starttime[1]);   // 起飞时间
        fscanf(fp, "%02d:%02d\t", &data.arrivetime[0], &data.arrivetime[1]); // 到达时间
        fscanf(fp, "%12s\t", data.flytime);                                  // 飞行时间
        fscanf(fp, "%8d\t", &data.value);                                    // 票价
        fscanf(fp, "%8d\t", &data.maxNUM);                                   // 额定载客量
        fscanf(fp, "%10d\t", &data.leftbuyersa);                             // 剩余座位数量
        fscanf(fp, "%s\n", &data.whetherfly);
        insert_double_node(list, data, i + 1);
        // ptr = list->next;
        // for (size_t j = 0; j < i; j++)
        // {
        //     ptr=ptr->next;
        // }
    }

    // print_forward_double_link_list(list);
    fclose(fp);
    return;
}

// 头节点到尾节点的节点个数
int get_circulate_node_count(f_list *list)
{
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return 0;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 无数据");
        return 0;
    }
    if (list->next->next == list->next)
    {
        // ERRLOG("双向循环链表 只有一个数据");
        return 1;
    }

    int count = 1;
    f_node *ptr = list->next->next;
    while (ptr != list->next)
    {
        count++;
        ptr = ptr->next;
    }
    return count;
}

// 双向链表的创建
f_list *init_double_link_list()
{
    // 1、创建动态空间
    f_list *list = (f_list *)malloc(sizeof(f_list));
    if (NULL == list)
    {
        ERRLOG("创建动态空间失败");
        return NULL;
    }
    // 2、初始化赋值
    list->next = NULL;
    // 3、返回list
    return list;
}

// 双向链表的插入
void insert_double_node(f_list *list, f_data data, int pos)
{
    // 安全判断
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return;
    }

    // 创建数据结点
    f_node *new_node = (f_node *)malloc(sizeof(f_node));
    if (NULL == new_node)
    {
        ERRLOG("创建动态空间失败");
        return;
    }
    // 结点初始化
    new_node->data = data;
    new_node->next = new_node;
    new_node->prev = new_node;

    // int j =(get_circulate_node_count(list)+1);
    //     if (pos>j||pos<0);
    //     {
    //         ERRLOG("插入位置超出范围");
    //         return;
    //     }

    // 头插
    if (1 == pos || NULL == list->next)
    {
        // 内部有数据的头插
        if (1 == pos && NULL != list->next)
        {
            // 1 指向 第一个结点
            f_node *ptr = list->next;
            // 2 将 pre 的 prev 的 next 指向 新结点
            ptr->prev->next = new_node;
            // 3 new_node 的 next 指向 ptr
            new_node->next = ptr;
            // 4 new_node 的 prev 指向 ptr 的 prev
            new_node->prev = ptr->prev;
            // 5 ptr 的 prev 指向 new_node
            ptr->prev = new_node;
            // 6 头结点 指向 新结点
            list->next = new_node;
            return;
        }
        // 内部无数据的头插    内部无数据 默认 头插
        if (NULL == list->next)
        {
            list->next = new_node;
            return;
        }
    }

    // 中间插入

    f_node *ptr = list->next;

    for (size_t i = 1; i < pos - 1; i++)
    {
        ptr = ptr->next;
    }

    // 开始插入
    // 1、 新结点的 next 指向 ptr的next
    new_node->next = ptr->next;
    // 2、 ptr next prev 指向 新结点
    ptr->next->prev = new_node;
    // 3、 新结点 prev 指向 ptr
    new_node->prev = ptr;
    // 4、 ptr next 指向 new_node
    ptr->next = new_node;
}

// 双向链表的删除
void delete_double_node(f_list *list, int pos)
{

    // 安全判断
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 为 NULL");
        return;
    }

    // 删除
    f_node *ptr_1 = list->next;
    f_node *ptr_2 = ptr_1->next;

    // 头删  情况 1、 pos == 1  2、只有一个元素  ptr_1->next == list->nexts
    if (1 == pos || ptr_1->next == list->next)
    {
        // 只有一个结点数据的时候
        if (ptr_1->next == list->next)
        {
            free(list->next);
            list->next = NULL;
            return;
        }
        // 多个结点数据删第一个
        if (1 == pos)
        {
            // 1、 将头结点 指向 第二个 结点
            list->next = ptr_2;
            // 2、 将 ptr2 指向 尾结点
            ptr_2->prev = ptr_1->prev;
            // 3、 将尾结点 的 指向 第二个结点
            ptr_1->prev->next = ptr_2;
            // 4、 释放 ptr 1
            free(ptr_1);
            return;
        }
    }
    // 中间删除
    for (size_t i = 1; i < pos - 1; i++)
    {
        ptr_1 = ptr_1->next;
    }
    ptr_2 = ptr_1->next;
    // printf("%p: %p\n", ptr_1 , ptr_2);
    // getchar();
    ptr_1->next = ptr_2->next;
    ptr_2->next->prev = ptr_1;
    free(ptr_2);

    // flight_data_file_print(list); // 写入到文件
    return;
}

// 双向链表的查找
f_node *find_double_node_pos(f_list *list, int id)
{
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return NULL;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 无 数据");
        return NULL;
    }

    f_node *ptr = list->next;
    do
    {
        if (ptr->data.id == id)
        {
            return ptr;
        }
        ptr = ptr->next;
    } while (ptr != list->next);
    return NULL;
}
f_node *find_double_node_name(f_list *list, char *name)
{
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return NULL;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 无 数据");
        return NULL;
    }

    f_node *ptr = list->next;
    do
    {
        if (strcmp(ptr->data.startcity, name) == 0 || strcmp(ptr->data.arrivecity, name) == 0)
        {
            return ptr;
        }
        ptr = ptr->next;
    } while (ptr != list->next);
    return NULL;
}

// 双向链表的遍历
void print_forward_double_link_list(f_list *list)
{
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 无 数据");
        return;
    }

    f_node *ptr = list->next;
    printf("班次\t机型\t\t起点站\t终点站\t起飞时间\t到达时间\t飞行时间\t票价\t载客量\t剩余座位\t是否飞\n");

    do
    {
        printf("%-8d", ptr->data.id);                                            // 航班班次
        printf("%-16s", ptr->data.flighttype);                                   // 飞机机型
        printf("%-12s", ptr->data.startcity);                                    // 航班起点站
        printf("%-12s", ptr->data.arrivecity);                                   // 航班终点站
        printf("%02d:%02d\t", ptr->data.starttime[0], ptr->data.starttime[1]);   // 起飞时间
        printf("%02d:%02d\t", ptr->data.arrivetime[0], ptr->data.arrivetime[1]); // 到达时间
        printf("%-10s", ptr->data.flytime);                                      // 飞行时间
        printf("%-8d", ptr->data.value);                                         // 票价
        printf("%-8d", ptr->data.maxNUM);                                        // 额定载客量
        printf("%-10d", ptr->data.leftbuyersa);                                  // 剩余座位数量
        printf("%c\n", ptr->data.whetherfly);
        ptr = ptr->next;
    } while (list->next != ptr);
}

void print_backwards_double_link_list(f_list *list);
// 双向链表的判空
int is_empty_double_link_list(f_list *list);

// 双向链表的清空
void clear_double_link_list(f_list *list)
{
    if (NULL == list)
    {
        ERRLOG("双向循环链表 为 NULL");
        return;
    }
    if (NULL == list->next)
    {
        ERRLOG("双向循环链表 无 数据");
        return;
    }

    f_node *ptr = list->next;
    f_node *tmp;
    do
    {
        tmp = ptr->next;
        free(ptr);
        ptr = tmp;
    } while (list->next != ptr);

    free(list);
    list = NULL;
}

// 双向链表的合并
f_list *merge_double_link_lists(f_list *list1, f_list *list2);

// 双向链表的销毁
void free_double_link_list(f_list **list)
{
    if (NULL == *list)
    {
        ERRLOG("链表的动态空间为空");
        return;
    }
    // 无数据的清空
    if (NULL == (*list)->next)
    {
        ERRLOG("链表内无数据");
        free(*list);
        *list = NULL;
        return;
    }

    // 有数据的清空
    f_node *ptr_1 = (*list)->next;
    f_node *ptr_2 = ptr_1->next;

    for (size_t i = 0; NULL != ptr_1; i++)
    {
        free(ptr_1);
        ptr_1 = ptr_2;
        if (NULL != ptr_2)
        {
            ptr_2 = ptr_2->next;
        }
    }

    free(*list);
    *list = NULL;

    return;
}
